home *** CD-ROM | disk | FTP | other *** search
/ Aminet 50 / Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso / Aminet / dev / lang / nA-Iaiov0.7.lha / Iaio_v0.7ﾟ / Examples / scroll / scroll2.ajo < prev    next >
Text File  |  2002-04-21  |  582b  |  24 lines
  1. openscreen[0]=350/20/1/l/topaz.font/;
  2. setcol[0,0,0,0,0]:setcol[0,1,255,255,255]
  3. setpen[0,1,0,0,0] : set[6,$90]
  4.  
  5. -loop:
  6. add[5,1] : add[6,1] : sub[7,1] : setcol[0,1,!5,!6,!7] : onlmb[exit]
  7. scroll[0,0,3,350,20,1,0] : add[2,1] : case[2,8,ustaw]
  8. -go:
  9. delay[1] : jump[loop]
  10.  
  11. -ustaw:
  12. getbyte[4,0,!1] : add[1,1] : case[0,10,scrollrestart]
  13. move[0,340,12] : putbyte[0,0] : set[2,0] : jump[go]
  14.  
  15. -scrollrestart:
  16. set[1,0] : jump[ustaw]
  17.  
  18. -exit:
  19. freebank[4] : closescreen[0] : quit
  20.  
  21. &file[4,0,99]
  22. zrob to z iaiem!  -  z iaiem masz 3!  -  pobaw sie iaiem!  -  porob se iaia!  -  niezle iaia!  -  
  23.  
  24.